1 A=A+1:ONAGOTO2,3,4,10
2 LOAD"TITELMPR",8,1
3 LOAD"TITELZS5",8,1
4 LOAD"STERN",8,1
10 A$(1)="[157][157][157][157][157]02/'2!--).'_"+CHR$(34)+"9"
11 POKE808,225:PRINTCHR$(8)
20 A$(2)="4("+CHR$(34)
30 A$(3)="[157][157][157][157][157]'2!0()#3_"+CHR$(34)+"9"
40 A$(4)="-&"
45 A$(5)="[157][157][157]-53)#_"+CHR$(34)+"9"
47 A$(6)="[157]+!,,%"
50 V=53248:POKEV+39,1
55 DIMF(110)
60 FORI=1TO100 STEP4:F(I)=1:F(I+1)=15:F(I+2)=11:F(I+3)=12:NEXT
500 PRINT"[147]"
510 FORX=1TO250:NEXT
520 PRINT"[144]":PRINT"[147]"
530 SYS49152
531 FORI=1TO100:X=INT(RND(0)*1000):IFX>280ANDX<480THEN536
535 POKEX+1024,160:POKE55296+X,F(I)
536 NEXT
537 FORI=1TO5:X=INT(RND(0)*255)+1:Y=INT(RND(0)*200)+1
538 FORJ=1TO4:POKE2040,(J+197):POKEV,X:POKEV+1,Y:POKEV+21,1
539 FORW=1TO100:NEXT:POKEV+21,0
540 NEXT:NEXT
549 POKE780,11:SYS49210
550 FOR X=1TO90 :NEXT
560 POKE780,12:SYS49210
570 FOR X=1TO90 :NEXT
580 POKE780,15:SYS49210
590 FOR X=1TO90 :NEXT
600 POKE780,1:SYS49210
650 PRINT""
660 I=1
670 FOR X=1TO400 :NEXT
700 PRINT"[151]";A$(I):PRINT"[145]";
705 FOR X=1TO90 :NEXT
710 PRINT"[152]";A$(I):PRINT"[145]";
715 FOR X=1TO90 :NEXT
720 PRINT"[155]";A$(I):PRINT"[145]";
725 FOR X=1TO90 :NEXT
730 PRINT"";A$(I):PRINT"[145]";
740 FOR X=1TO700 :NEXT
750 PRINT"[155]";A$(I):PRINT"[145]";
755 FOR X=1TO90 :NEXT
760 PRINT"[152]";A$(I):PRINT"[145]";
765 FOR X=1TO90 :NEXT
770 PRINT"[151]";A$(I):PRINT"[145]";
775 FOR X=1TO90 :NEXT
780 PRINT"[144]";A$(I):PRINT"[145]";
785 FOR X=1TO90 :NEXT
790 I=I+1:IFI<7THEN GOTO700
900 GETB$:IFB$=""THEN900
910 PRINT"[144][147]"
920 PRINT"L[207]";CHR$(34);"ZSIR3";CHR$(34);",8,1"
921 PRINT:PRINT:PRINT:PRINT:PRINT"NEW"
922 PRINT:PRINT:PRINT"L[207]";CHR$(34);"[160] TEXT";CHR$(34);",8,1"
930 PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
940 POKE198,9
950 POKE631,19:FORI=632TO639:POKEI,13:NEXT